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MEM0RA3)JDUM TO: Users of 1401 Tape to Card Utility Program 

SUBJECT; 1401 Tape to Card Utility Program, #1401-UT-028, 

Version 1, Modification Level 2 


This letter announces the availability of Version Ij Modification Level 2 
of the 1401 Tape to Card Utility Program, #1401-UT-028. This modification, 
which is in the form of one patch card as well as a corrected listing, 
corrects all reported errors in the subject system. The patch card, 
enclosed, listed, and identified below (attachment #1) is to be inserted 
in the system deck as follows: 

Remove Card (cc 78-80) And replace with card (cc 77-80) 

029 C 029 

This patch corrects a loop encountered when punching ten or more cards 
per record. 

The following corrections should be made to the library documentation: 


Location 

Chancre 

Page 8, paragraph 2a 

I-address is 1469 

Page 8, paragraph 2b 

I-address is 1502 

Page 8, paragraph 2e 

I-address is 1879 

Page 8, paragraph 2f 

I-address is 1846 

Page 8, paragraph E, line 9 
Page 9, Example #1, number 4 
under Given 

instruction address 1366 

columns 1-8 

Page 9, Example #1, paragraph 
B under Procedure 

card columns 1-8 

Page 9, Example #2, number 4 
under Given 

columns 1-20 
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We appreciate your cooperation in making these changes. A list of the 
material distributed with this letter follows: 

Item No. Contents 

1 One patch card 

2 System listing of version 1, Modification 

Level 2 

3 Listing of patch card 

Initial requests for this system, which we filled after the release of this 
letter, will not include the card itemized above as the system deck will 
already reflect these changes. 

The Optional Program Material, available upon request, consists of the 
source symbolic program deck for Version Modification Level 1 . 

An Authorized Programming Analysis Report (APAR) should be submitted 
through the IBM Systems Engineer to report any difficulties encountered in 
the use of this system. 

Any discrepancy between the material you receive and the items listed 
above should be directed to the attention of the Manager of tha Program 
Information Department, IBM, 112 East Post Road, White Plains, New York, 


GP PROGRAMMING SYSTEMS 
Enclosures 
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CLEAR STORAGE 1 
CLEAR STORAGE 2 
BOOTSTRAP CARO 


t 008015* 022026t030034,041.0A5t 053,0570731026 

L0721 16* 110106* 1051 17B101/1 99, 027A074028n027B001027dB026/099l, 001/00 111710 
* 008015*022029*056063/05602 9 ,0240671056 
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Development Laboratory 
Endicott, New York 




LJ 




International Business M achines Corporation 


Pioneer 8-2211 


December 17, 1962 

MEMORANDUM TO: Users of 1401 Tape- to- Card Utility Program 

SUBJECT: 1401 Tape-to-Card Utility Program, #1401-UT-028, 

Version 1 , Modification Level _1 


This letter announces the availability of Version Modification Level 1 
of the 1401 Tape-to-Card Utility Program, #1401-UT-028. This modi- 
fication, which is in the form of three (3) patch cards as well as complete 
documentation, corrects all reported errors in the subject system. 

These patch cards, enclosed, listed, and identified below (Attachment #1) 
are to be inserted in the system decks as follows: 

Remove cards (cc 78-80) and replace with cards (cc 77-80) 


067 

C067 

068 

CO 68 

119 

C119 


Cards C067, C068 and C119 correct an error regarding the checking of 
blocked records in the exception routine. 

We appreciate your cooperation in making these changes. A list of the 
mated al distributed with this letter follows: 

Item No. Contents 

1 . Three patch cards 

2 System listing of Version Modification 

Level _1, heretofore known as the Initial 
Availability Version with its addendums 
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3 New documentation for the 1401 Tape -To- Card 
system replacing all pr odious documentation, 

4 List of three corrections to Preliminary 
Specifications Bulletin, #J24- 1411-1 

Initial requests for this system, which are filled after the release 
of this letter, will not include the cards itemized above as the system 
deck will already reflect these changes. 

The Optional Program Material, available upon request, consists 
of the source symbolic program deck. 

An Applied Programming Analysis Report (APAR) should be 
submitted through the IBM Systems Engineer to report any difficulties 
encountered in the use of this system. The APAR should be addressed 
to: 


APAR Processing 
IBM Programming Systems 
Department 302, Building 647 
Endicott, New York 


Any discrepancy between the material you receive and the items above 
should be directed to the attention of the Manager of the Program 
Information Department, IBM, 112 East Post Road, White Plains, 

New York. 


GP Programming Systems 
Attachment 

cc: Branch Office 
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General Products DUdsion 
Deodopment Laboratory 
Endicott, New York 


/ nteniational Business Machines Corporation 


Pioneer 8-2211 


December 17, 1962 


MEMORANDUM TO: Users of 1401 Tape-to-Card Utility Program 

SUBJECT: 1401 Tape-to-Card UtiUty Program, #1401-UT-028 


This letter transmits 1401-UT-028, Version Modification Level 0. 

Abstract for 1401 Tape-to-Card Utility Program 

Purpose: 

This program performs various tape-to-card operations in accordance 
with the users' specifications punched in a maximum of three control 
cards. Thus, output operations that were performed on the IBM 722 
Card Punch and IBM 758 Card Punch Control can now be performed on 
the 1401 Card Read-Punch, 

Machine Configuration 

1, 4000 positions of core storage 

2, High- Low- Equal Compare 

3. IBM 1403 Printer, Model 2 

4. One IBM 729 II, IV, V, VI or 7330 Tape Unit 


5. 


IBM 1402 Card Read-Punch 
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In accordance with the program request you submitted, the Basic Program 
Material being forwarded is: 

1. The condensed program deck which is sequentially numbered in 
columns 78-80. 

2. The documentation of 1401 Tape- to- Card including flow charts, 
a symbolic listing of the program and a listing of the program 
deck. 

The Optional Program Material being forwarded upon request is the 
symbolic source deck of the 1401 Tape- to- Card Program. 

When corrections are to be included or substituted in the symbolic deck, 
caution must be observed with respect to column 76, which is used as 
an overlay control during loading of the program. Cards numbered 
784-808 contain a one (1) and represent the variable length program. 

Cards numbered 809-857 contain a two (2) and represent the fixed length, 
no field selection program. Any inclusions or substitutions within these 
series of numbers must be appropriately punched in column 7 6. All 
other cards must be left blank in column 76, 

The following information will be helpful in implementing this system: 

IBM 1401 Data Processing System Bulletin: Utility Programs 
for IBM 1401 Tape Systems, Form number J24-1411-1, 

NOTE: The following changes affect bulletin J24-1411-1: 

Page 14 - under Control Cards, paragraph 2: Line 4 should 
read: 


"... 300 characters per record in the input. , , " 

Page 14 - Figure 12: Card columns 1-4 should read: 
"characters per record " 

Page 15 - under Record Blocking, columns 1-4: Line 2 should 
real: 


"characters per fixed-length input record. " 

Page 17 - under Column 17 (4-punch): 

"Select excepted records into stacker 8 after punching, " 
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The 1401 Tape-to-Card Utility Program will be maintained through the 
use of modification letters. Whenever modifications are made to the 
program, a serially numbered letter, starting with number 1^ accom- 
panied by the appropriate change cards will be mailed to all users. 

When the program is requested and the modification level is other than 
£, all letters will be supplied with the material, but no change cards 
will be forwarded since toe program deck will always reflect toe latest 
changes. Should the nature or quantity of changes make a reassembly 
necessary, this will be distributed as a new version and modification 
letters to this new version will begin at 1, 

An Applied Programming Analysis Report (APAR) should be submitted 
through toe IBM Systems Engineer to report any difficulties encountered 
in toe use of this system. The APAR should be addressed to: 

APAR Processing 
IBM Programming Systems 
Department 302, Building 646 
Endicott, New York 

Any discrepancy between the material you receive and the items listed 
above should be directed to toe attention of toe Manager of toe Program 
Information Department, IBM, 112 East Post Road, White Plains, 

New York, 


GP PROGRAMMING SYSTEMS 

Attachments 

cc: Branch Offices 

(No attachments sent with carbons) 
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General Products Division 
Programming Systems 
August 29, 1962 



1. Introduction 

The 1401 Tape- to- Card Utility Program will operate upon a variety of tape record arrangements to 
produce cards punched in a variety of output forms. The parameters of the particular tape to be processed 
and the output desired are specified by the user through a series of control cards, which are read into the 
1401 with this program deck. The minimum 1401 system necessary to utilize this program includes: 

1) 1401 Model C 3 

2) High- Low- Equal Compare 

3) 1403 Model 2 printer 

4) One (1) 729 Model 11, iv, V, VI, or 7330 Tape Unit 

5) 1402 Card Read-Punch 



1. Tapes may contain either fixed length records with fixed blocking, or variable length records 
singly blocked, in completely BCD mode. Tapes written in completely column binary mode may be fixed 
length records with fixed blocking; mixed binary and BCD records must be singly blocked. 

2. The maximum block length allowed is 1197 characters. 

3. A maximum of 99 separate, adjacent files, within one (1) reel of tape may be processed during 
one pass of the program; or up to three (3) files may be selected from a tape. If there are more reels of 
tape to be processed containing the identical input and output specifications, the user need not reload the 
program unless Header Label comparison is required for each reel of tape. In addition, a file may be bypassed 
during the ruhning of the program under control of Sense Switch C, Sense Switch B will halt the program after 
each file has been processed regardless of control card specification. The program will revert back to the 
control card specification when Sense Switch B is in the off position. 

4. Up to two (2) characters of a record may be used to detect exception records. These may either 

be printed; printed and punched;pstrVc9<l,.,punch.0d,,i after. punching; . or bypassed 

entirely. 

5. When more than one card is to be punched per record, intra-record numbering may be punched 
into the cards (BCD only). 

6. Sequence numbering of other than exception cards is permitted (BCD only). 

7. Additional information not present on tape records may be punched into all cards or a specific 
card for each tape record. A maximum of 80 consecutive characters is allowed, 

8. Additional information may be changed for each file provided that the length and the punch location 
and card number designations remain the same as has originally been specified in the control card (BCD and 
completely column binary). 

9. Any Tape Unit Number can be specified. If none is specified, unit number one (1) wiU be assumed. 

10, 705 group mark configuration (12-5-8) may be converted to 1401 configuration (12-7-8). 

11. Fixed length records may be punched in either of two (2) modes (BCD records only). 

a) Tape image - the records would be punched exactly as they appear on tape, in groupings of 

80 characters per card. Where the number of characters of the last group is less than 80, punching 

will start in column one (1) and punch through as many columns as necessary. 

3 4 
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b) Field Selection - up to sixteen (16) portions of the record may be punched into a maximum 
of 99 cards in any order. Each field may consist of 80 characters or less in length and may be punched 
exactly as it appears in the record, or may contain any single valid 1401 character, which will be 
punched, through the length of the field (i. e. , a field of three (3) positions containing **♦). 

12. Variable length records are punched in the same manner as fixed length tape image. 

13. Three (3) fields up to a combined total of 80 characters in length may be specified for sequence 
checking of records within a file, 

14. At the end of each file, the number of records processed (including exception records) and the 
number of cards that have been punched (excluding exception records) will be printed, 

15. If a tape contains a header label as its first record, the label may be: 1) printed, 2) punched, 

3) bypassed, or 4) compared. If a header label precedes each file within the reel to be processed, all 
subsequent labels will be processed similarly to the first label except for label compare. Subsequent 
labels in this case will be bypassed. A tape mark following the header label of a file is acceptable, 
but not necessary. 

16. The following options are allowed the user in specifying a method to halt the program when all 
processing has been completed: 

a) Specifying the number of files to be punched. 

b) Selecting up to three (3) files for punching. 

c) 1. Where (a) is unknown, and (b) is not used, specifying the presence of a trailer label 
and allowing the program to check for it. 

2. Specifying the presence of two (2) consecutive END-OF-FILE marks on the tape. 

d) Under control of Sense Switch B, halt at the end of each file. 

17. Where a trailer label is present after each file, the program will follow the same procedure 
specified in the handling of header labels between files. A tape mark must precede, as well as 
follow, a trailer label. 

18. Under control of Sense Switch D, the program will print the exact image of what is being punched 
into cards, 

19. With reference to items 5, 6, 7, and 8, when punching cards in a tape image mode, the informa- 
tion that is not present in the tape record, but is to be punched into cards, will replace the data 
normally punched from the tape record. If the entire tape record and items 5, 6, 7 are to be punched, 
the field selection option is suggested. 
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Format of Control Cards 


As has been previously noted control card punching will follow directly from the input and output 
parameters present on the record and required as an output result. Although punching is not required for 
features which are not used, there are two fields which must always be punched for proper operation: 

1) Record Length (1-4) 

2) Blocking (5-7) 

NOTE: *signifies columns that should be considered for the minimum job in BCD. 


Control 

Card No, Columns Meaning 


1 1-4 

1 5-7 

1 8-9 

1 10 

1 11-12 

1 13-14 


*Record Length - number of characters (including record mark if 
present). Enter WW in columns 1-4 for variable length records. 

♦ Records per block - number of actual records constituting a physical 
tape record. For variable length records, or mixed binary and BCD 
records, this must be 001, 

♦Files within one tape reel to be punched - actual number of files, 
exclusive of Header and Trailer Labd s, that are to be punched. If 
unknown leave blank, but entry must be made in column 10 or 
columns 11-12, 

♦ End of Reel d esignation - leave blank for double tape mark, enter 1 for 
trailer label indication if punching entire reel. A trailer label of up to 
80 columns in one card must be punched, which will be compared to the 
trailer label written on tape. An exact comparison will halt the program. 

Enter First selected file number for punching. 

Enter Second selected file number for punching. 


1 15-16 

1 17 


1 18 

1 19 


1 20 


Enter Third selected file n umber for punching. 

Exception Record Procedure - a record may be processed in other than the 
normal manner. It may be bypassed (punch 1), printed (punch 2), printed 
and punched (punch 3), or printed, punxihed, and selected., to . stackicr (8), 
(punch 4). If no exception record processing is required, leave blame. 

First exception character - character, digit, or zone. 

Exception code type - up to 2 columns of a record may be designated to 
denote exceptions. If an "and" condition between the columns is desired, 
punch a 1, If an "or" condition is desired, punch a 2. If only one 
exception character is used, columns 19, 25-30 are blank. 

Exception disposition for the presence of a character punch a (1), absence 
punch a (2), for the presence of a zone punch an (A), absence punch a (B), 
for the presence of a digit punch a ( J), absence punch a (K). 


1 21-24 First exception character location on tape, punch actual character location 

within a record; i. e. , each record within a block could be excepted if 

the appropriate code applied, 

1 25 Second exception character 

1 26 Second e xception disposition. 
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Control 

Card No. Columns 

1 27-30 

1 31-32 


1 33-34 

1 35 

1 36-37 


1 38-39 


Meaning 

Second exception character location on tape, 

Intra record card numbering - where multiple cards are produced per 
record, each card may be sequence numbered. This numbering will 
replace the corresponding information read from the actual record. 
Enter high order position of up to 2 columns on the card into which 
numbering is to be punched. Leave blank if no numbering is desired. 

Inter- record card numbering - all cards punched within a file may be 
consecutively numbered. This numbering will replace the corres- 
ponding information read from the actual tape record. Enter high order 
position of up to 4 columns on the card, into which numbering is to be 
punched. If no numbering is desired, leave blank. 

Number of Columns - reserved for file sequence numbering. Enter 
number of columns to be reserved. If numbering exceeds column 
allowance, high order position will contain zone overflow information. 

Insertion of Additional Information - fixed information not present in 
the tape record may be punched into all of the cards, or into a 
particular card within each record (for multiple cards per record) 
through the use of another card accompanying the control card (s). 

This information will replace corresponding information read from the 
actual tape record. Punch actual card number within a record into 
which the information is to be punched. Punch an (AA) for insertion 
in all cards. 

High order location - that fixed information is to be punched into, 
on card(s). 


1 40-41 . 


Number of Columns - to be reserved for fixed information (Maximum 
80 columns). 


1 42 

1 43 


1 44-46 

1 47 


1 48 


*Tape Unit Selection - any tape unit may be specified, if left blank, 
unit (1) will be assumed. 

Column Binary records - if all binary records are to be processed, punch 
(1), if mixed binary and BCD punch (2), Mixed binary and BCD records 
must contain "look ahead" feature (last 4 columns of 84 character BCD 
record, last 8 characters of 168 character binary record)indicating 
mode of the record following. If all records are BCD, leave blank. 

♦Header label length - Punch actual number of up to 160 characters 
contained in a header label. If no header, leave blank. 

♦Header label processing - the header label may be printed, punch (1), 
punched, punch (2), bypassed, punch (3), compared against up to two 
cards (160 characters) accompanying control card(s), punch (4). 
Indication will be given for lack of comparison. 

Field Sequence Checking - up to 3 fields to a maximum of 80 characters 
within a record may be designated to be checked for correct sequence in 
a M, I, arrangement, between records. Punch number of sequence 
fields to be checked, whose parameters differ from those of field 
selection. If all agree punch zero. If not used, leave blank. 

♦Signifies columns that should be considered for the minimum job in BCD, 
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Control 

Card No. Colmnns 

1 49-50 


1 51-52 

1 53-54 

1 55 

1 56 


1 57 

1 58 

1 59-60 


1 61-62 


Meaning 

Sequence field 1 - punch the actual field number which coincides with 
the parameters used in field selection, If other than field selection 
parameters are desired, fill in the control fields of the selection number 
directly following the last true selection field number. Enter the number 
of characters, high order location on tape, and a series of 9*s for the 
remaining two fields. 

Sequence field 2 - same as above. 

Sequence field 3 - same as above. 

Group Mark Conversion - if it is desired to change 705 group mark to 
a 1401 group mark punch a (1), if not desired, leave blank. 

Change fixed information - Where parameters of columns 36-41 of the 
control card remain the same for^ files, fixed information may be 
changed for each file. If desired, punch (1); if it is not wanted, leave 
blank. 

♦Header or Trailer - between files - if a header and/or a trailer is 
interposed between files, the same options allowed for the first header 
on a file (with the exception of header compare) will hold true for labels 
between succeeding files. Header label compare will take the same path 
as bypassed headers. Punch a (1) for a header between files, a (2) for 
a trailer between files, a (3) for both. 

If hand correcting redundant tape transmission is desired, punch a (1), 
if not wanted, leave blank. 

Field selection - up to 16 fields may be designated to be selected from an 
actual tape record to be selectively punched into one or more cards. ITie 
only restriction is that record field numbers must be related to output 
field numbers sequentially; e, g, , field number 1 cannot be assigned to 
output card number 5, and record field number 9 assigned to output card 
number 1. Enter number of fields to be used for field selection. 

First field number of characters - punch total number representing field. 


1 63-66 

1 67-68 

1 69-70 

i 71-72 

1 73-76 


High order location on tape record - if a repetitive single character 
field is desired (i. e, , MMMM) overpunch with an 11 punch the units 
position of the card number field (69-70). 

High order output field location - punch high order location on card into 
which selected field is to be punched. 

First Field card number - punch number of the card into which the field 
is to be inserted. 

Second field number of characters 

Second field high order location on tape record. 


1 77-78 Second field high order punch location, 

1 79-80 Second field card number, 

♦Signifies columns that should be considered for the minimum job in BCD, 


38 


1401-UT-028 


Page 6 


Control 



Card No. 

Columns 

Meanin 

2,3 

1-2 

Fie^4 3. 11 

2,3 

3-6 


2,3 

7-8 


2,3 

9-10 


2,3 

11-12 

Field 4, 12 

2,3 

13-16 


2,3 

17-18 


2,3 

19-20 


2,3 

21-22 

Field 5, 13 

2,3 

23-26 


2,3 

27-28 


2,3 

29-30 


2,3 

31-32 

Field 6, 14 

2,3 

33-36 


2,3 

37-38 


2,3 

39-40 


2,3 

41-42 

Field 7, 15 

2,3 

43-46 


2,3 

47-48 


2,3 

49-50 


2,3 

51-52 

Fields. 16 

2,3 

53-56 


2,3 

57-58 


2,3 

59-60 


- 2 

61-62 

Field 9 

2 

63-66 


2 

67-68 


2 

69-70 


2 

71-72 

Field 10 

2 

73-76 


2 

77-78 


2 

79-80 
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Operating Instructjons 

A. The most critical part of the operation is the proper punching of the set of control cards and their 
insertion pDint in the main program deck. Refer to the DECK COMPLEMENT section of this write-up for the 
order and insertion point of the control cards. Punch entire field of only those options that are to be used. 

B, To run the program, use the following procedure: 

1) Set proper card form in punch hopper, 

2) Set carriage tape on printer and any paper form desired, 

3) Ready printer, 

4) Ready Reader-Punch, 

5) Place control cards in deck between 114 and 115 which are the last three digits in columns 
78-80 of deck, 

6) Place tape to be punched on tape drive and set drive to unit number specified in control card. 
When not specified, set to (1). 

7) Ready tape at load point, 

8) Set mode switch to run. 

9) Press Start Reset switch. 

10) Set desired sense switches, 

11) Press load button. 

C, Sense Switch Operating Control 

1) Switch B - when in the on position, program will stop after each data file has been processed, 
regardless of control card specification for file processing,. 

2) Switch C - when in the on position, program will bypass records continuously regardless 
of control card specification. To h^t bypass operation at the end of a file, sense switch B 
must also be turned on. 

3) Switch D - when in the on position, all cards punched, including exception records, will be 
printed with the punched card image. 

4) Switch E - when in the on position, the program will not rewind the tape reel at the conclusion 
of all processing of a tape reel. When control card specification shows that only one file 

is to be processed, switch G must be turned on to prevent rewinding after processing the file. 

5) Switch F - when in the on position, will cause the punch release feature to become inoperable 
for the remainder of the job run. 

6) Switch G - when in the on position, will allow program to continue after a ten redundancy read 
attempts. When turned off, hand correction will be possible. 

D. Program Halts 

The following errors are checked for to insure correct operation of the program. 

1) Assignment Phase 


I-Address Course of 

Displayed Action 


a) Incorrect punching columns 17-30. 

b) Field Selection card number designation 
not in correct sequence - Message printed. 

c) Header label compare is unequal - 
Message printed. 


2792 Repunch control cards and restart. 

3941 Repunch and Restart. 

3443 Repunch and restart or continue 

if desired. 
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2) Object Phase of Program 




I-Address 

Iftsplayed 

Course of 
Action 

a) 

Tape redundancy (BCD tape read) when 
control card column 58 contains a (1), 

1467 

Set sense switch G off and mode 
switch to "D”, or press Start 
button. 

b) 

Tape redundancy (BCD tape read) 
sense switch G off. 

1500 

After Storage Scan set mode 
switch to "N” and restart at 1364. 

c) 

Tape redimdancy (binary tape read and 
control card column 58 contains a (1), 

0834 

Same as BCD tape action a. 

d) 

Tape redundancy (binary tape read) and 
sense switch G off. 

0853 

Same as BCD tape action b. 

e) 

Sense switch B in the on position. 

1877 

Press Start button. 

f) 

End of processing of data file . 

1844 

Press Start button . 

E. Redundancy - ten tries are made to read a redundant record. If after ten tries, the record is still 

redundant, there are two courses of action possible, depending upon the punch in column 58 of the control card, 
and the setting of Sense Switch G. If the user desires, redundancies may be disregarded and a print, as well 
as the normal punching of other than exception cards, will occur if column 58 is left blank. On exception 
records, exception routine option will prevail. If column 58 contains a (1) and switch G is off, the record will 
be printed and the program will halt. The operator will then set the Tape Select switch to "D" and press Start,, 
The record will then be re-read and stop due to the redundant character(s) in storage. Set mode switch to 
Storage Scan to find the redundant character(s) and manually correct storage. Reset the mode switch to "N" 


and restart the program at instruction address 1364* If no manual correction is desired, set sense switch G 
to on. Press Start Reset button to restart program. 

*For col. binary tape, restart at address 0712. 

During the first of the ten tries, an extra card will be punched (to eliminate a punch check due 
to punch release). This card will fall into the alternate file stacker ("N" or four) that is not accepting 
currently processed cards. 

NOTES: 

1. When the sequence checking option has been taken and a sequence error occurs, the entire 
record will be printed and a notation of the sequence error given. 

2. When the exception option is taken, the card count total will have excluded the total number of 
exception cards punched. The total number of records processed will include the number of 
exception records processed. 

3. During normal processing of files, cards that are punched will be selected into pocket four 
on alternate files; otherwise into the "N" pocket. 
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Examples 


Example #1 
Given: 

1. Tape reel containing 16 files 

2. Three records per block 

3. Eighty characters per record 

4. Added card with current month punched in columns 3-10 

5. No header or trailer label 

6. Use tape unit #1 

Result desired: 

1. Punch files #3, 10, 16 

2. Except from punching records with an 8 in the 27th position 

3. Sequence check 2 fields 

4. Add current month in columns 37-44 of output card 
Procedure: 

Punch control and added cards as follows: 

A. Control Card 



Card col. 

Punch 

Description 

1. 

1-4 

0080 

Record length 

2. 

5-7 

003 

Records per block 

3. 

11-16 

031016 

Selected files 

4. 

17-24 

18bj0027 

Exception coding 

5. 

36-41 

AA3708 

Added card information 

6. 

48-52 

00212 

Field sequence numbers 

7. 

61-70 

1500646601 

Sequence field #1 parameters 

8. 

71-80 

0200457901 

Sequence field #2 parameters 

Additional Card 




3-10 

JUL 1960 

Current month 


Example #2 
Given; 

1. Tape reel containing 11 files 

2. Five records per block 

3. Two hundred and fifty characters per record 

4. Additional card with information pimched in columns 61-80 

5. Header label containing 120 characters 

6. Trailer label containing 60 characters 

7. Use tape unit #3 

Result desired; 

1. Punch all files (excluding header and trailer label) 

2. Except records with a zone x in position 1 or without a letter Z in the 12th position, 
bs^ass exceptions 

3. Sequence check 3 fields 

4. Field select 9 fields 

5. Add "Remit to our address" into columns 1-20 of first card of each record 

6. Sequence number each file 

7. Compare Header Label to Header Card 
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Procedure: 

Punch Header Label, Control Cards, added card and Trailer Label as follows: 
A. Header Label 


Card Col. Punch Description 


1. 

1-80 

First part of label 

Card #1 header label 

2 

1-40 

Second part of label 

Card #2 header label 

Control Cards 




card #1 




Card Col. 

Punch 

Description 

1. 

1-4 

0250 

Record Length 

2. 

5-7 

005 

Records per block 

3. 

10 

1 

Trailer label 

4. 

17-24 

1X2A0001 

First exception coding 

5. 

25-30 

Z20012 

Second exception coding 

6. 

33-35 

774 

File sequencing numbering 

7. 

36-41 

010120 

Added card information 

8. 

42 

3 

Tape unit used 

9. 

44-46 

120 

Header label 

10. 

47 

4 

Compared 

11. 

48-54 

3080510 

Field Sequence numbers 

12. 

59-60 

09 

Field Selection number 

13. 

61-70 

1502362101 

Select Field #1 

14. 

71-80 

1002015101 

Select Field #2 


card #2 



15. 

01-10 

1500013601 

Select Field #3 

16. 

11-20 

1601016101 

Select Field #4 Sequence Field #3 

17. 

21-30 

3000164702 

Select Field #5 Sequence Field #2 

18. 

31-40 

4700460102 

Select Field #6 

19. 

41-50 

7601170103 

Select Field #7 

20. 

51-60 

0800940104 

Select Field #8 Sequence Field #1 

21. 

61-70 

2702100904 

Select Field #9 


C. Trailer Label 

1. 1-60 Trailer label Trailer Label Card 

information 
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INSERTED AFTER EACH DATA FILE HAS/ 
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CARD FOR FIRST FILE ' 


TRAILER LABEL-MAX IMUM- I CARD 



HEADER LABEL-MAXIMUM 2 CARDS 

FIRST FILE ADDITIONAL INFO. CARD MAX I MUM- 1 CARD 

CONTROL CARD(S)-MAXIMUM-3 CARDS 
MINIMUM- I CARD 


PROGRAM 

OOI 

PART I 



XX 
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, 78-80 SEQUENCE NUMBER 
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14L;i-u]-u2a 

LISTING OF PROG=lAM DESK 


VERSION I MODIFICATION LEVEL 1 


, CL dO 15, 022U26,03L034, 041, 043,053, 0570731026 

Ll7211o, 110106, 1031 17B 101/ 1 99, 027AU75C29n027B0010270B026/0991,00 1/001117 100 
,008015,022029,036039,043047/039036 ,051 ,055 ,056 ,063N, 067071 ,075 ,0011056 

/Oeo,Cai201«10lLL24I9clH080180A110KC3 ,P16,P23»P24«P311L037P37»P05,P12B039 


MAABP65112 A116J83AA 

KL25B99BA21135 , 1 35133A I 7b 135A 1 351 34 
f’.134t46,QJlS+84135YJ89135A135Q33nQ31 
,L 12al33135BA30BA36141 , 136133,140 
BL041431M141R04AI79141A141139M139+991 


,P41,P49,P56,P571L020P57,P39,P4GB039 
,P80,P871056 L036P93,P65,P73B039 
,012,019,0261056 L036029,Q01 ,0058039 
,045,053,0601056 L034063 , 034, Q4 18039 
,Q86,093,R0G1056 L037R00 ,072 , 079B039 


LOOOK92N/OaO,001BR39156 MR072 79KL25Z6 7 ,R13 ,Rl 7 ,R25 ,R32 lL03aR38 , R08 ,RC9B039 
Bb04l37AMl37K05BBl5132 ,131CJ97I9l ,R62,R661056 L034R72 ,R47 , R54B039 
8K93T,L28M132*73BB22AK06l32BR82M139C14,R89,R93,COC,a041L038&10,R7a,R82B039 
,40OMA22*97a/0OML26/O0ML25ROOMA22R02 ,826,033,6401056 L036846, 6 15,6228039 
/580/,4011CL657Z72aR08MR93R08 , 656, 6 58 , 665, 6691L029675 , 65 1 , 652B039 
,R29R26AKU6R31AK06R28KR01R25MAC4R01 , 697, A04 1056 L035A 10 ,683 ,6908039 
aR29R26B0725HL25140BA49160 KI44T08BC95,A23,A30*A3B«A451U)38A4B,A18,A22B039 
M3814828A63148 BC95ML25101ML25V73B045 , A68 , A75 , A821056 L037A85 ,A56, A648039 


ML25*62ML25*55BR54MJ89t66BA93HL25+67 
3D7215S M953T91M953U05ML25U26MI44U29 
ML25U64ML25829BB921474BC28K031BC361 
L080H60C146KllBC16rBB801M080I60BB80 


,B04 ,811,8151056 L036B21 , A93,B00B039 
,844,6511056 L036B57, 630,8378039 
,880,688,8921056 L035B92 ,865 ,8728039 
,C12,C16,C17,C241L035C27,COO,CO7BD39 


ilL25*86,155N155595nl55,C44,C5UC.55,C621U)3SCA5*i;29,C36B039 


8C77ML25+75, 024056,0630671056, 048 
M194A67M048N46M060M060AN46N45n048 
M070I77MMMI69HBE81I761BA56I75 
-A1 J91A5VG32I77KBG21170IAJ93 I 73MI 73 
AI65I75AIo5I70CI77I63DI20UMI77L44MM 

BF93SAJ97I87BE51aL28,K778D21AI87I73 


,C84, 091,0951056 L033098 ,0 70 , 077B039 
,017,021,0281056 L033031 ,006,0138039 
, 041, 045, 046, 054 1L030061, 039, 0408039 
,085,0921056 0034095,069,0776039 
,E17,E22,E29,E301L035E30,E03,E10B039 
,E47,E51, £581056 L034E64^E32 ,E39B039 
,E81,E85,E89,E931L035E99,E70,E77B039 


AI87I70ML26E470150I81BG61S0152131BH07S,F21,F26,F331056 L038F37 ,F07,F14B039 


0154I81BH67S0I81M45BA56SBG03I812 
AK06034,_E26AO4 8E2 8aE 2 6M I 7 7 1 6 36 D 3 2 
MK06034MLC4F69 1F77YG21 1 7 1B085Y I 77 I 70 
■MLL5ILifl9X7ZAIA5175RF 1 OHF 26050*1170556- 
MI73552MI73rt60HI67559MI67I41BF50 
M£28Q53KI7U567MI73«64MI73563AI67I41 
MI41I67MI41570ML29448BF50ME23056 
M044448MI7057eMI73574MI73W68AI67I41 
M 1 41 581BF50M 16 12802/230, 201. 136 
— AOQELO GUJia SEO -ERR 
19 0720 

045 

N526M050347M000198MMMH 
AKQ6a570L06L12B493SM191423AL09194 
AL09191M194419M194430M191426,000 
.OOQOQOOaUOaa468U£504TB4680571 , 336 


,F57,F621056 L032F69 ,F45 ,F50B039 

, F 88, F92,F 991055 L033G02 ,F77 ,F81B039 
,G21,G28,G321056 L036G38 ,G10 ,G17B039 
,G57,G61,G6aiOS6 1 0 360.74,0.43,0508039 
,G96,H031056 LQ32H06 ,G82 ,GB9B039 

,H28,H351056 L035H41 ,H14 ,H21BD39 

,H63,H671056 L032H73 ,H49 ,H56B039 

,H95, 1021056 L035 I 08 ,H3i ,H88BD39 

, 1 27, 1 28, 1 32, I 361L031 139,1 16,1208039 
,162,164,1 66,XABI1031 1X0,142,1 4 58039 
,180,182 , 185, 188 1L02 II 91, 174,1788039 
L0031941056 

,35 1,352, 353, 3541L022354, 337, 3448039 
,374,3311056 LD333B7 ,362 ,3698039 

,409,4161056 1032419,395,4028039 

,436,441,4491056 L033452 ,427,4318039 
AU44 340033883 37M047340ML04057NJ97L 09 ,468,475,4821056 L036488 ,460 ,4648039 

at 05 A1 38423833 U + 83M59129UML26333D468 , 504 , 503 , 515 ,522 1L037 525 ,493 , 500B039 


/290,2aiotb3B337ML06423,00lM00100l 

,U01M001U01,OU1M001001BW57SCQERR333 

ML23N50P136617M0G0198MMMM 

-UIila:i43C740SAK06096G193N5UB7S4/ 

V o 1 4 1 9 I K A L 0 9 1 9 4 A L 0 9 1 9 I M 1 9 1 7 1 3 rU 9 A 7 2 0 


,538,542,549,55311034559,530,5348039 
, 575, 582, 586, 59211036595,564, 5718039 
,621,622,623,62411025624,607,6148039 
,644,651,5951056 1031655,632,6378039 
,678,6851056 1036691,664,6718039 


V# D 1 
002 

003 

004 

005 
C06 

,007 

008 

C09 

010 

OIL 

012 

013 

014 

015 

016 
017 
013 

019 

020 
021 
.022 

023 

024 

025 

026 

027 

028 
029 
Q30 

031 

032 

033 
-0X4 

035 

036 

037 

038 

039 
04D 

041 

042 

043 

044 

045 

046 

047 

048 

049 

050 

051 

052 

053 
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rU947C2,000Ml96716’4GG01C0a0G0,615 f 71U t 7 17 , 721 1056 L033724 ,699 , 7C3B039 054 

A <''ta6l7n6l5D614KN57*92B+33/130,10l ,740,747,751 ,755 IL034753 ,732 , 736B039 055 

j5096AJ97L09BV25Mr460t92 ,780,7341056 L03279C, 766, 7738039 056 

AK0b450Bt33/ia0, lGl3644H19ud38Ml9G879 , 806, 810 , 8 14 , 821 IL03 7827 ,793 ,8028039 057 

M196871,10CM196375CL23188B865UML25872 ,846,853,8581056 L037864 ,635 , 839B039 053 

Ml92lCCM10CalC0.V814872B72l/18G,101 , 880 , 68 7 , 891 , 8951L034898 , 872 ,8 76B039 059 

B949AK06J32CJa2J84B949SBY57TM«UiPulK ,917,922,9271056 L036934, 903, 9108039 060 

ML03nf;903Kb927N699MSUlP01RML03 ,945 , 949, 953 , 96 1 1L030964 ,939, 94CB039 061 

nPS83L.MT66CW73KB+20CMJ93183B + 09F , 975 , 980 , 985 ,992 1L032996,966 ,97 1B039 062 

M/28B333B6COML25+86B9974N , +09, ♦ 16 , *20 , *21 1L025#21 ,+01 .♦05B039 063 

PL25»206953AK06L16ML16100NAK06L28 , *40 , *47 , *48 1056 L033^54 ,*29 , *338039 064 

CK03L2SBt93SML2810CNBV31B/0504 , t 74, *75, *79, *841L030*84,*62 , *678039 065 

M9K43607MK92100N8*67 ,*89 , *93 ,/OC ,/01 1L020/04 ,*86 ,*6 7B039 066 

Ml 8028042B/23iB*86F*861L 183/73 ,/14,/19,/23,/231L030/34,/12,/13B039 C067 

L133/96AJ97183A083/73A087/96a/7l/94 ,/56,/63i056 L035/69,/42 ,/49B039 C068 

H000072tU72080B/93/BSl2MOOCa73C373Q84 , /89, /93 , S001056 L037S06,/77,/84B039 069 

Bi0.J7j*37KO76*36PL26,V50M079V49ML25/12,S23,S27,S31,S38U.038S44,S12,S16B039 070 

ML25/13B*05L091*39L096V50L094/12 ,563,5701056 L032576, 552,5566039 071 

LL29/13BV46NT104BT55+37NML25T08K4 , 592 , 593 , T 01 , TOB 1L033T09 ,584, 588B039 072 

BW73K.MOML26588AK06V030T91V021U4U16 , T31 , T39,T151056 L034T43 , T 17, T24B039 073 

ML26971B953M070T08BT03ML06VC3ML25S88 , T62, T66 , T731056 L036T79 ,T5 I, T55B039 074 

'ML25971B975NL25/12NL25/13NL16V07 ,T98,U051056 L032U11 ,T87,T91B039 075 

j*.93^0MVlOi4JS.rA6BU68.8600TML297l3M094,U30,a34_,U39,Ut6iLfi33U49,U19,U26B039 076 

n*83V5CM096V50BV39.ML06L12MV0kl6U%UlB,U68,U69,U76,U831L038U8 7,U57,U64B039 0 77 

MXUlP0lRBr66G. . . U34MK08693 ,V02,V04,V08,V111L030V17,U96,V01B039 078 

MK95*92AK06L12Ml66L28CK00L12B997T ,V39,V461056 L033V50 , V25, V32B039 079 

AKOgL2gML06Ll2ML06ML06B54269498W31101 , V69, V73 , V77, V81 1L038V88, V58 , V65B039 080 

,V85AK06V87aV85CV87K08BW20TBV31ML23VB7,W04,Wll,W16,W20lL038W26,V93,WOOB039 081 

B*79 .V85MV87W52nV85M595000BV89a001 ,M42,W46,W53 < W571L034W6C,W31 ,W35B039 082 

aO0laO0l'B949/299/180/O8O4 , W73, W77 ,W81 , W851L025W85 , W65 ,M69B039 083 

HN41225ML20MN32ML162F 1/225 , XOl , X05 ,X06 ,X08 1L026X11 ,W93,W978039 084 

,201, 10100 1M225L20MMM/ 12 t20BY46*87N *X30 , X31 , X32,X391L035X46,X16,X236039 085 

ML25*37BY75BBY79K02 BZ93BX94,914 ,X67, X71 ,X751056 L032X78 ,X34 ,X59B039 086 

AL29916n914BZ59AK06L32CK02L32BZ59//299,X94,YOl,Y08,Y131LD38Yl6,X86,X90B039 0B7 

ML05L3 2,201/P99BY42EU3;U1R.Z59ML30*67 , Y32 , Y37 , Y42 , Y461L036Y52,Y24, Y2BB039 088 

BX54ML05J82M099916BY13.X59LL24P81 , Y71 , Y75 , Y791056 Lb33V85 , Y57, V64B039 089 

L2inP01RMJ90BZ168Y13KU*UlBBZ93BZ40P8l ,Z02,Z07 ,Z12 ,Z161L038Z23,Y94,V98B039 090 

CP80CJ40BZ07/BY13CL29L29MP80040CHZ31 , Z40 , Z47 , Z54 , Z55 1L035Z58 ,Z31 ,Z36B039 091 

/P31NP018-831NNOOOOOON , Z7l , Z 72 , Z73 , Z801L022Z80 ,Z63 , Z67B039 092 

/030,0C18-83BX71LL24P31M%UIP01RMJ90 , Z93 , Z 97 , -04 ,-12 1L035-15 , Z85 , Z89B039 093 

/180,101BX71KB-71P81 M.P30280M280 1802 , -29, -37 ,-44 , -5 1 IL036-51 ,-20, -24B039 094 

/?80/Pa2,2ClPClB-04MP80230MB-44 ,-67,-71 ,-73,-791L031-82 ,-56,-60B039 095 

BB91MSUlP01RML03nB391KNJ65NP80280 ,-99 , JOG , J05 , J091L033J15 ,-87 ,-95Bd39 096 

N230180N?^2 30MP80200M230 I 902/230 , J28 , J 35 , J42 , J431L331 J46 , J23, J24BC39 097 

,201200ML26J05B-87ML25J05U2U1B8391 , J65 , J 72 , J77 , J81 1L036 J82 , J54 , J6 1B039 093 

POO , JB9,J91,J94,J981L318K00,J85,J87B039 099 

19003G6 ,K06,K09,K121056 L012K12fK03,K048039 100 

6C7VU1016 000 ,LOC,L03,L04,L071L017L09,K96,K99B039 101 

101 ,L2l,L24,L25,L261LO17L26,L13,L170O39 102 

2K ,L31,L33,L451056 L030L56,L29,L30B039 103 

L036L92,L69,L8ll056 104 

L036K2B,«05,M171056 105 

L036K64,M41,M531056 106 

L036NOO,M77,M891056 107 
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LOLNr 


NUM RfcX 

731302 

Y423030 

ElU*i\/25Gl4 

/Ui>S36 

OStOlYA 


12 008C 




,008015, 022029,036039,043047/039036 
BA50117 ML26997BP77160 BP591172 
eP92ll73BU031l74KL25*866Q3lML25t86 
ML25S458Q31ML25/42BP24.P88ML25S38BP66 
HA35S44KA42S51MA49S76ML25S77C117U94 
BP88TK1180308A071211A124083B&63126 
M125084BA13l27lA130a8 7V885l208Vi^26l202 
VP8dl20SM088/70YL03120BK60l201B'<531202 
BP-Ba»Oa9/8aBB9AH92BR801191NP38ML25y89 
HO92/67Vt96126BV£251262VP88126SM088/93 
YL01126Bil5012Bl&£521262BP88K089SllBA50 
,125M124130M118125BQ73M093/703R26 
_Jia9a/93B£2 5Yil93122BQ 5 3 YO 93 1 2 33 Q3 8 
Mt88069H071*8aM069*88BB46142 , 142 
-fU42K99MKa9Y89HK99T42MK9-9--^7MK.99Y40 
MK99Z10MK99956MK99930MK99U86MK99U91 
- MK99-9QMK99JI370a0 ,024056, 063067 1 
BB77160 BB97B056J94VB05607621B85 
-. a0i5602it IBaiN - _ 


.CQani 5,1122029,036039.^)43047/039036 

MJ93690M737662M061693,688660AK06693 
AK06690AK06662a688660V698U001C693K08 
B680SB621MO67+92H0000O0B+33HO64+92/180 
— ^G6QlQlM662730P660n000B6a7P01 


MJ97084CN54034B659U/180, 10 1692MK98+92 
HD34693AOd4183n692B680AN54183SM540b4 
YJ39084M133690M000180f>lBt3 3M;«BlP0lR 
B793LML06854B773KMQ6058CBAK06L16 
AK06L20M*377554CN4nQ69B699Q625B953 
Jl£il2BU13B9l5L3£iLL ^996829353 lUlUlB 
V318a691B953AK06854B699B7l2.UZUlB 
M£BlP01ilB712G. 

• 003015,022029,036039, 043047/039036 
BF05J949BR22143 /599/ , 40 1BU43 1432 
JlL2Ga55M£4aT9aWL26929GL25t44DL25t97 
n/00t47ML26*47ML26/C0LG04*35LGG4*21 
LG04/13ML25U39ML25U46ML25I91ML25T98 
ML25607ML25614CJ97F918E73SMJ97GU2AGC2 
AG02AJ97G02MGC1F93ML25637LF99694 
FL25V11ML25V13MK99£33MK996 o 78K02J84 
l!L23A5.9ISL25X71B£Q6aR7 7K02 86C6Z5 9 
MR76296MR76-27B£06K031ML23Y98bE34147 


L032N32,N13,N251056 
,N46,N4 7,N'i9,N5llL022M54,N42,M44Bu39 
L00&N6G,M531G56 ‘ 

,048,051 ,054,0571L017057,044,045BC39 
,065^6b,070,0721L015072 ,059,062BC39 
,080, 031, 084, 0851L015087, 074,0776039 
,093,094,095BP01 L0o9096,Q89,090B039 
,00107lP0241001 

, 05 1,055, 056,063N, 067071,075, 00 11056 
,P241056 L031P3l,P09,P16B039 

,P55,P591056 L034P65,P40,P48B039 

, P84, P 88, P92,P991L037Q02,P73,P7 78039 
,024,0311056 L035Q37, 010,0178039 

,058, 06^1056 L035Q72, 043,0508039 

,095,R031056 L038R1C ,080 , Q88B039 

,R33,R411056 L038R48 ,R19 ,R26B039 

,R6B,R7G«R8CU156 4U138R86,R53,R60B039 
,£10, £181056 L038£24,R94, £026039 

£48, £52, £591056 L038£62 , £32 , £40B039 
£81, £85, £921056 L033£95, £67, £748039 
,A14,AIH,A251056 L033A23 ,A03 , A07B039 
,A50,A581056 L033A61 ,A36, A43B039 

»A83^901Q36 — - J_035A9G*J1G9,A76B039 

,B18,B251056 L035B31 ,B04,B1 18039 

,B5Q, 857,8641056 L033B64, 639,8466039 
,B85,B931056 L032B96,B73 ,6776039 

L013C09,C05,GQ9BP01 
,00107la0241001 

• 051 ,055, 056 ,06321,067671, 075 ,0011056 
,621,6281056 L035634, 607,6148039 

,656,6641056 L03667C ,642 ,6498039 

,687, 694, 698, 705 1L033708, 676,6808039 
,727,731,735BB97 £029737,716, 723B039 
,00107lP0241001 

,619,623,6301056 £037636,607^6146039 
,655,659,6661056 £036672,644,6516039 
,694,695,6991056 £034706,680,6878039 
,724,7321056 £032733,712,7196039 

,755,757,761, 7691£034772 , 746 , 753B039 
, 789 , 793 . 301 1056 £033805,777, 781B039 
, 825, 829, 833, 8341£03383S, 814,8188039 
,3538897 £016354,847,8526039 

,001C7lP0241001 

,051, 053, 056, 063M, 067071, 075, 0011056 
,P21,P22,P26105S £033P33 , P09 , PI 7B039 
,P55,P621056 £035P68,P41,P48B039 

,P90,P971056 £035003, P76,P83BU39 

,025,0321056 £035033 , 01 I , 018B039 

,060,065,0721056 £037075,046, Q53B039 
, 094, ROl 1056 £032R07, 030, 0876039 

,R29 ,R361056 £036R43 , R 15 , R22B039 

,R62,R7C,R741056 £033R76 ,R51 ,R53B039 
,R99, £061056 £037£1 3 , R84 , R9 1B039 


103 

109 

110 
111 
112 

113 

114 

115 

116 
117 
113 

C119 

120 

121 

122 

123 

124 

125 

126 
127 
123 

129 

130 

131 

132 

133 

134 
1 135 
1 136 
1 137 
1 133 
1 139 

1 140 

2 141 
2 142 
2 143 
2 144 
2 145 
2 146 
2 147 
2 143 
2 149 
2 150 

151 

152 

153 

154 

155 

156 

157 
153 

159 

160 
161 


cn 

CO 
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LL24K00/Q4y/,P0lM‘gUiPClKMLC3a ,£20 , £3C , &38 ,£421L029t42 t £21 ,£25803y 162 

BF50KNE64,144Ll37C97BA44087lP.t,GC0872 , £56 , £63 ,£71 1056 L036£78, £48 ,£526039 163 

HC390874Qu05ML26£4dB£30C97 BA290972 ,£98,A061056 L035A13, £87, £916039 164 

ML2i-836£30a971KL25293B£30B£30C036Kll ,A36,A40,A441056 L037A50, A21,A298039 165 

3i''^si.T,AiaAi^9f^0e6A9UA086A87aAa5A89 ,A70,A771056 L033A83 f A56 , A63B039 l66 

MP002GOKA90J34N2801802FI/280,201 ,805,806 ,608 ,81 21L032315,A91 ,A98B039 167 
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